home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0033_Bluewave Structures.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  3KB  |  79 lines
  1. {
  2. I created the following purly from my observations of the Bluewave files that
  3. I have reiceived. There are parts that I believe to be incorrect, such as the
  4. last five variables in the MIXRec record. I have worked very hard on this, so
  5. if you use the following please give me my due creidit in the program or
  6. documentation.
  7.  
  8. The BBSNAME.FTI file is made up of FTIRec records.
  9.  
  10. The BBSNAME.INF file is made up of one INFRec record and an unknown number
  11. of ConfRec records.
  12.  
  13. The BBSNAME.MIX file is made up of an unknown number of MIXRec records.
  14.  
  15. The BBSNAME.DAT file is a file of char indexed by the FTIRec records.
  16. }
  17.  
  18.   FTIRec = Record
  19.     FromName : Array[1..36] of Char;
  20.     ToName   : Array[1..36] of Char;
  21.     Subject  : Array[1..72] of Char;
  22.     Date     : Array[1..10] of Char;
  23.     Time     : Array[1..10] of Char;
  24.     MsgNum        : Word;
  25.     BackThread    : Word; { I'm not sure if this is the offset in }
  26.     ForwardThread : Word; { the FTI file or the message number }
  27.     MsgOfs    : LongInt; { Offset in DAT file (bytes) }
  28.     MsgLength : LongInt; { Length of msg in DAT file (bytes) }
  29.     Flags  : Word; { Bit 1  = Private
  30.                      Bit 2  = Crash
  31.                      Bit 3  = Rec'd
  32.                      Bit 4  = Sent
  33.                      Bit 5  = File Attach
  34.                      Bit 6  =
  35.                      Bit 7  =
  36.                      Bit 8  = Kill Sent
  37.                      Bit 9  = Local
  38.                      Bit 10 =
  39.                      Bit 12 =
  40.                      Bit 13 = Req Receipt
  41.                      Bit 14 =
  42.                      Bit 15 = Return Receipt
  43.                      Bit 16 = Audit Req }
  44.     Zone   : Word; { Fidonet Zone }
  45.     Net    : Word; { Fidonet Net }
  46.     Node   : Word; { Fidonet Node }
  47.   end; { Total length of record is 186 }
  48.  
  49.   INFRec = Record
  50.     UnKnown    : Byte; { I don't know what this is seems to always be 2 }
  51.     InfoFiles  : Array[1..5] of Array[1..15] of Char;
  52.     UserName   : Array[1..43] of Char;
  53.     UserAlias  : Array[1..65] of Char;
  54.     Zone, Net, Node, Point : Word; { The BBS's fidonet address }
  55.     SysOpName  : Array[1..43] of Char;
  56.     SystemName : Array[1..65] of Char;
  57.     { The rest of this record is just a shot in the dark }
  58.     NumMacros  : Word; { The number of macros allowed by the door }
  59.     Extra1     : Array[1..7] of Char;
  60.     KeyWords   : Array[1..10] of Array[1..21] of Char; { The keywords }
  61.     Filters    : Array[1..10] of Array[1..21] of Char; { The filters }
  62.     Macros     : Array[1..3]  of Array[1..75] of Char; { The macros }
  63.   end;
  64.  
  65.   ConfRec = Record
  66.     Number   : Array[1..6] of Char;
  67.     Label    : Array[1..21] of Char;
  68.     Title    : Array[1..50] of Char;
  69.     ConfType : Byte;
  70.     Extra    : Word;
  71.   end;
  72.  
  73.   MIXRec = Record
  74.     AreaNumber   : Array[1..6] of Char;
  75.     NumMsgs      : Word;
  76.     PersonalMsgs : Word;
  77.     OffsetInFTI  : LongInt;
  78.   end;
  79.